home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / gfxfx / fadeplot.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-04-20  |  5.4 KB  |  125 lines
  1.  
  2. program ScreenSaver1;
  3. { Some easy plotting stuff, by Bas van Gaalen, Holland, PD }
  4. uses
  5.   crt,dos;
  6.  
  7. const
  8.   Dots   = 150;
  9.   Xspeed = 8;
  10.   Yspeed = 10;
  11.   Xstep  = 1;
  12.   Ystep  = 2;
  13.  
  14.   SinTab : array[0..1000] of byte = (
  15.   100,100,100,100,100,100, 99, 99, 99, 99, 98, 98, 98, 97, 97,
  16.    96, 96, 95, 95, 94, 94, 93, 92, 92, 91, 90, 89, 88, 88, 87,
  17.    86, 85, 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 74, 73, 72,
  18.    71, 69, 68, 67, 66, 65, 64, 63, 61, 60, 59, 58, 57, 55, 54,
  19.    53, 52, 51, 50, 48, 47, 46, 45, 44, 43, 42, 41, 39, 38, 37,
  20.    36, 35, 34, 33, 32, 32, 31, 30, 29, 28, 27, 26, 26, 25, 24,
  21.    23, 23, 22, 22, 21, 20, 20, 19, 19, 19, 18, 18, 17, 17, 17,
  22.    17, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 17,
  23.    17, 17, 18, 18, 18, 19, 19, 20, 20, 21, 21, 22, 22, 23, 24,
  24.    24, 25, 26, 27, 27, 28, 29, 30, 31, 32, 33, 33, 34, 35, 36,
  25.    37, 38, 39, 40, 41, 42, 43, 45, 46, 47, 48, 49, 50, 51, 52,
  26.    53, 54, 55, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68,
  27.    69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 81, 82,
  28.    83, 84, 85, 85, 86, 87, 88, 88, 89, 90, 90, 91, 91, 92, 92,
  29.    93, 93, 94, 94, 95, 95, 95, 96, 96, 97, 97, 97, 97, 98, 98,
  30.    98, 98, 99, 99, 99, 99, 99, 99, 99,100,100,100,100,100,100,
  31.   100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,
  32.   100,100,100,100,100,100,100,100,100,100,100,100,101,101,101,
  33.   101,101,101,101,102,102,102,102,103,103,103,103,104,104,105,
  34.   105,105,106,106,107,107,108,108,109,109,110,110,111,112,112,
  35.   113,114,115,115,116,117,118,119,119,120,121,122,123,124,125,
  36.   126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,
  37.   141,142,143,145,146,147,148,149,150,151,152,153,154,155,157,
  38.   158,159,160,161,162,163,164,165,166,167,167,168,169,170,171,
  39.   172,173,173,174,175,176,176,177,178,178,179,179,180,180,181,
  40.   181,182,182,182,183,183,183,183,184,184,184,184,184,184,184,
  41.   184,184,184,184,184,183,183,183,183,182,182,181,181,181,180,
  42.   180,179,178,178,177,177,176,175,174,174,173,172,171,170,169,
  43.   168,168,167,166,165,164,163,162,161,159,158,157,156,155,154,
  44.   153,152,150,149,148,147,146,145,143,142,141,140,139,137,136,
  45.   135,134,133,132,131,129,128,127,126,125,124,123,122,121,120,
  46.   119,118,117,116,115,114,113,112,112,111,110,109,108,108,107,
  47.   106,106,105,105,104,104,103,103,102,102,102,101,101,101,101,
  48.   100,100,100,100,100,100,100,100,100,100,100,101,101,101,101,
  49.   102,102,102,103,103,104,104,105,105,106,106,107,108,108,109,
  50.   110,111,112,112,113,114,115,116,117,118,119,120,121,122,123,
  51.   124,125,126,127,128,129,131,132,133,134,135,136,137,139,140,
  52.   141,142,143,145,146,147,148,149,150,152,153,154,155,156,157,
  53.   158,159,161,162,163,164,165,166,167,168,168,169,170,171,172,
  54.   173,174,174,175,176,177,177,178,178,179,180,180,181,181,181,
  55.   182,182,183,183,183,183,184,184,184,184,184,184,184,184,184,
  56.   184,184,184,183,183,183,183,182,182,182,181,181,180,180,179,
  57.   179,178,178,177,176,176,175,174,173,173,172,171,170,169,168,
  58.   167,167,166,165,164,163,162,161,160,159,158,157,155,154,153,
  59.   152,151,150,149,148,147,146,145,143,142,141,140,139,138,137,
  60.   136,135,134,133,132,131,130,129,128,127,126,125,124,123,122,
  61.   121,120,119,119,118,117,116,115,115,114,113,112,112,111,110,
  62.   110,109,109,108,108,107,107,106,106,105,105,105,104,104,103,
  63.   103,103,103,102,102,102,102,101,101,101,101,101,101,101,100,
  64.   100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,
  65.   100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,
  66.   100,100, 99, 99, 99, 99, 99, 99, 99, 98, 98, 98, 98, 97, 97,
  67.    97, 97, 96, 96, 95, 95, 95, 94, 94, 93, 93, 92, 92, 91, 91,
  68.    90, 90, 89, 88, 88, 87, 86, 85, 85, 84, 83, 82, 81, 81, 80,
  69.    79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65,
  70.    64, 63, 62, 61, 60, 59, 58, 57, 55, 54, 53, 52, 51, 50, 49,
  71.    48, 47, 46, 45, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33,
  72.    33, 32, 31, 30, 29, 28, 27, 27, 26, 25, 24, 24, 23, 22, 22,
  73.    21, 21, 20, 20, 19, 19, 18, 18, 18, 17, 17, 17, 17, 16, 16,
  74.    16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 18,
  75.    18, 19, 19, 19, 20, 20, 21, 22, 22, 23, 23, 24, 25, 26, 26,
  76.    27, 28, 29, 30, 31, 32, 32, 33, 34, 35, 36, 37, 38, 39, 41,
  77.    42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 57, 58,
  78.    59, 60, 61, 63, 64, 65, 66, 67, 68, 69, 71, 72, 73, 74, 75,
  79.    76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 88, 89,
  80.    90, 91, 92, 92, 93, 94, 94, 95, 95, 96, 96, 97, 97, 98, 98,
  81.    98, 99, 99, 99, 99,100,100,100,100,100,100);
  82.  
  83. {----------------------------------------------------------------------------}
  84.  
  85. procedure SetGraphics(Mode : byte); assembler;
  86.  
  87. asm
  88.   mov AH,0
  89.   mov AL,Mode
  90.   int 10h
  91. end;
  92.  
  93. {----------------------------------------------------------------------------}
  94.  
  95. procedure Plotter;
  96.  
  97. const
  98.   StartCount = 150;
  99.  
  100. var
  101.   Xst,Yst,I,J : word;
  102.  
  103. begin
  104.   Xst := 300; Yst := 500;
  105.   repeat
  106.     while (port[$3da] and 8) <> 0 do;
  107.     while (port[$3da] and 8) = 0 do;
  108.     for J := 15 downto 0 do
  109.       for I := 0 to Dots do begin
  110.         mem[$a000:(SinTab[(Yst+I*Ystep) mod 1000]*320)+(SinTab[(Xst+I*Xstep) mod 1000])+50] := 0;
  111.         mem[$a000:(SinTab[(Yst+(Yspeed*J)+I*Ystep) mod 1000]*320)+(SinTab[(Xst+(Xspeed*J)+I*Xstep) mod 1000])+50] := J+16;
  112.       end;
  113.     Xst := (Xst+Xspeed) mod 1000;
  114.     Yst := (Yst+Yspeed) mod 1000;
  115.   until keypressed;
  116. end;
  117.  
  118. {----------------------------------------------------------------------------}
  119.  
  120. begin
  121.   SetGraphics($13);
  122.   Plotter;
  123.   textmode(lastmode);
  124. end.
  125.